home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
8bitfiles.net/archives
/
archives.tar
/
archives
/
genie-commodore-file-library
/
C64Demos
/
DEMOS2.LHZ
/
-out of fuel
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1993-12-17
|
1KB
|
42 lines
1 IFG=0THENG=1:LOAD"FLASHER",8,1
2 PRINT"[153][147][142]":POKE53281,0:POKE53280,12
3 W=100
10 FORA=1105TO1142:POKE54272+A,10:POKEA,160:NEXT
20 FORA=1142TO1105STEP-1:POKEA,160
21 FORB=1TOW:NEXT
25 POKEA,231
26 FORB=1TOW:NEXT
30 POKEA,97:READA$:PRINTA$;:READB:IFB=1THENPRINT
31 FORB=1TOW:NEXT
35 POKEA,101
36 FORB=1TOW:NEXT
40 POKEA,32:READA$:PRINTA$;:READB:IFB=1THENPRINT
45 NEXT
50 FORA=0TO450:POKE53281,AAND1:NEXT:POKE53281,0:POKE2,253:SYS49152:FORA=0TO3000
60 NEXT:PRINT"[147]";:END
1000 DATA"HELP!",1,I ,0,A,0,M ,0,R,0,U,0,N,0,N,0,I,0,N,0,G ,0,O,0,U,0,T ,0
1005 DATAO,0,F ,0,F,0,U,0,E,0,L,0,"!",1,"H",0,"E",0,"L",0,"P",0,"!",0
1010 DATA"H[145]",0,"E[145]",0,"L[145]",0,"P[145]",0,"!",0,"H",0,"E",0,"L",0,"P",0
1015 DATA"!",0,"H[145]",0,"E[145]",0,"L[145]",0,"P[145]",0,"!",1
1020 DATA"HELP![145]",1
1021 DATA"HELP![145]",1
1022 DATA"HELP![145]",1
1023 DATA"HELP![145]",1
1024 DATA"HELP![145]",1
1025 DATA"HELP![145]",1
1026 DATA"HELP![145]",1
1027 DATA"HELP![145]",1
1028 DATA"HELP![145]",1
1029 DATA"HELP![145]",1
1030 DATA"HELP![145]",1
1031 DATA"HELP![145]",1
1032 DATA"HELP![145]",1
1033 DATA"HELP![145]",1
1034 DATA"HELP![145]",1
1035 DATA"HELP![145]",1
1036 DATA"HELP![145]",1
1037 DATA"HELP![145]",1
1038 DATA"HELP!",1
1040 DATAPUTT! ,0,PUTT! ,0,"PUTT!",1,THE ,0,"FUEL[146] ",0,IS ,0,ALMOST ,0,GONE!
1045 DATA1,,1,H E L P !,1,,,,,,1,POW! ,0,POP! ,0,"BLAM![146]",0